Portable dynamic notebook

*Try to manipulate the sliders*

ManipulatePlot[Sin[a x + b], {x, 0, 6}, {a, 1, 4, 0.5}, {b, 0, 10, 0.5}]

Or more general `Manipulate` function

Manipulate[
 Plot[Evaluate[
   y[t] /. First[
     NDSolve[ {y''[x] == -x y[x], y[0] == a, y'[0] == b}, 
      y, {x, 0, 4}]]], {t, 0, 4}, 
  Epilog -> {Point[{4, 1/2}], Green, Arrow[{{0, a}, {1, b + a}}], Red,
     Point[{0, a}]}, ImagePadding -> 25, PlotRange -> {{0,4.5}, {-3,3}}],
 {{a, 1}, -3, 3, 0.5},
 {{b, 0}, -3, 3, 0.5}]